# Figure S15D
see ./Figure 5/Figure 5.html


# Figure S15D
DimPlot(Bf.combined.youngBrain, order = FALSE, reduction = "tsne", label = T, repel = F, pt.size = 0.01, group.by = "integrated_snn_res.1", cols = c(
 "#dddddd","#dddddd","#dddddd","#dddddd","#dddddd",
 "#dddddd","#dddddd","#dddddd","#dddddd","#dddddd",
 "#dddddd","#b9c3ff","#dddddd","#dddddd","#dddddd",
 "#dddddd","#00f7a8","#dddddd","#dddddd","#dddddd",
 "#dddddd","#b3a200","#dddddd","#dddddd","#dddddd",
 "#dddddd","#dddddd","#dddddd","#dddddd","#dddddd",
 "#a877ff","#ff6020","#dddddd","#fd28f1","#dddddd",
 "#b3a200","#dddddd","#dddddd","#dddddd","#dddddd"
  )) + NoLegend() + theme(aspect.ratio = 1)

FeaturePlot_scCustom(Bf.combined.youngBrain, features = c("LOC118413229", "LOC118430368", "LOC118430372", "LOC118404018", "LOC118415699", "LOC118421571", "LOC118421290", "LOC118414629", "LOC118420234", "LOC118423635", "LOC118420369", "LOC118415256", "LOC118409944", "LOC118403211"), reduction = "tsne", label = F, repel = F, pt.size = 0.01) + NoLegend()